﻿Imports System.Configuration.ConfigurationManager
'Imports GBdata

Public Class dllbase
    Friend _cod As String
    Private ConnectionPath As String = ConnectionStrings("RCBD").ConnectionString
    Friend cData As dllData
    Public Function Errors() As String
        Errors = cData.Errors
    End Function
    Friend Sub New()
        cData = New dllData
        cData.OriginData = 2
        cData.Path = ConnectionPath
    End Sub
    Protected Overrides Sub Finalize()
        cData = Nothing
        MyBase.Finalize()
    End Sub
    Public Property cod() As String
        Get
            cod = _cod
        End Get
        Set(ByVal value As String)
            _cod = value
        End Set
    End Property
End Class
